home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / tex / td187src.lzh / MAGICTYP.D < prev    next >
Text File  |  1991-06-08  |  14KB  |  303 lines
  1. (*######################################################################
  2.                                                                         
  3.         MAGIC         Modula's  All purpose  GEM  Interface  Cadre
  4.                       ¯         ¯            ¯    ¯          ¯
  5.   ######################################################################
  6.  
  7.                 Typdeklarationen nach Profibuch, Anhang C
  8.  
  9.   ######################################################################
  10.   V2.0  26.09.90  Peter Hellinger       Anpassung an neues MagicSys
  11.   V1.0  (C) by Peter Hellinger
  12.   ####################################################################*)
  13.  
  14. DEFINITION MODULE MagicTypes;
  15.  
  16. FROM SYSTEM     IMPORT  ADDRESS;
  17. FROM MagicSys   IMPORT  Nil, Null,
  18.                         Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6, Bit7,
  19.                         Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14, Bit15,
  20.                         LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL, sBITSET,
  21.                         lWORD, lINTEGER, lCARDINAL, lBITSET;
  22.  
  23.  
  24.  
  25. TYPE    BITBLK =        RECORD
  26.                          bWd:           sINTEGER;
  27.                          bHt:           sINTEGER;
  28.                          planeCt:       sINTEGER;
  29.                          fgCol:         sINTEGER;
  30.                          bgCol:         sINTEGER;
  31.                          opTab:         ARRAY [0..3] OF Byte;
  32.                          sXmin:         sINTEGER;
  33.                          sYmin:         sINTEGER;
  34.                          sForm:         ADDRESS;
  35.                          sNxwd:         sINTEGER;
  36.                          sNxln:         sINTEGER;
  37.                          sNxpl:         sINTEGER;
  38.                          dXmin:         sINTEGER;
  39.                          dYmin:         sINTEGER;
  40.                          dForm:         ADDRESS;
  41.                          dNxwd:         sINTEGER;
  42.                          dNxln:         sINTEGER;
  43.                          dNxpl:         sINTEGER;
  44.                          pAddr:         ADDRESS;
  45.                          pNxln:         sINTEGER;
  46.                          pNxpl:         sINTEGER;
  47.                          pMask:         sINTEGER;
  48.                          filler:        ARRAY [0..23] OF Byte;
  49.                         END;
  50.  
  51. TYPE    PtrFONTHDR =    POINTER TO FONTHDR;
  52.         FONTHDR =       RECORD
  53.                          fontId:        sINTEGER;
  54.                          point:         sINTEGER;
  55.                          name:          ARRAY [0..31] OF CHAR;
  56.                          firstAde:      sCARDINAL;
  57.                          lastAde:       sCARDINAL;
  58.                          top:           sCARDINAL;
  59.                          ascent:        sCARDINAL;
  60.                          half:          sCARDINAL;
  61.                          descent:       sCARDINAL;
  62.                          bottom:        sCARDINAL;
  63.                          maxCharwidth:  sCARDINAL;
  64.                          maxCellwidth:  sCARDINAL;
  65.                          leftOffset:    sCARDINAL;
  66.                          rightOffset:   sCARDINAL;
  67.                          thicken:       sCARDINAL;
  68.                          ulSize:        sCARDINAL;
  69.                          lighten:       sCARDINAL;
  70.                          skew:          sCARDINAL;
  71.                          flags:         sBITSET;
  72.                          horTable:      POINTER TO ARRAY [0..255] OF sCARDINAL;
  73.                          offTable:      POINTER TO ARRAY [0..255] OF sCARDINAL;
  74.                          datTable:      ADDRESS;
  75.                          formWidth:     sCARDINAL;
  76.                          formHeight:    sCARDINAL;
  77.                          nextFont:      PtrFONTHDR;
  78.                         END;
  79.  
  80.  
  81. TYPE    IMGHEADER =     RECORD
  82.                          imVersion:     sINTEGER;
  83.                          imHeadlength:  sINTEGER;
  84.                          imNplanes:     sINTEGER;
  85.                          imPatlen:      sINTEGER;
  86.                          imPixwidth:    sINTEGER;
  87.                          imPixheight:   sINTEGER;
  88.                          imScanwidth:   sINTEGER;
  89.                          imNlines:      sINTEGER;
  90.                         END;
  91.  
  92.  
  93. TYPE    PtrLINEA =      POINTER TO LINEA;
  94.         LINEA =         RECORD
  95.                          PLANES:        sINTEGER;
  96.                          WIDTH:         sINTEGER;
  97.                          CONTRL:        POINTER TO ARRAY [0.. 11] OF sINTEGER;
  98.                          INTIN:         POINTER TO ARRAY [0..255] OF sINTEGER;
  99.                          PTSIN:         POINTER TO ARRAY [0..255] OF sINTEGER;
  100.                          INTOUT:        POINTER TO ARRAY [0..255] OF sINTEGER;
  101.                          PTSOUT:        POINTER TO ARRAY [0..255] OF sINTEGER;
  102.                          COLBIT0:       sINTEGER;
  103.                          COLBIT1:       sINTEGER;
  104.                          COLBIT2:       sINTEGER;
  105.                          COLBIT3:       sINTEGER;
  106.                          LSTLIN:        sINTEGER;
  107.                          LNMASK:        sBITSET;
  108.                          WMODE:         sINTEGER;
  109.                          X1:            sINTEGER;
  110.                          Y1:            sINTEGER;
  111.                          X2:            sINTEGER;
  112.                          Y2:            sINTEGER;
  113.                          PATPTR:        ADDRESS;
  114.                          PATMSK:        sBITSET;
  115.                          MFILL:         sINTEGER;
  116.                          CLIP:          sINTEGER;
  117.                          XMINCL:        sINTEGER;
  118.                          YMINCL:        sINTEGER;
  119.                          XMAXCL:        sINTEGER;
  120.                          YMAXCL:        sINTEGER;
  121.                          XDDA:          sINTEGER;
  122.                          DDAINC:        sINTEGER;
  123.                          SCALDIR:       sINTEGER;
  124.                          MONO:          sINTEGER;
  125.                          SOURCEX:       sINTEGER;
  126.                          SOURCEY:       sINTEGER;
  127.                          DESTX:         sINTEGER;
  128.                          DESTY:         sINTEGER;
  129.                          DELX:          sINTEGER;
  130.                          DELY:          sINTEGER;
  131.                          FBASE:         PtrFONTHDR;
  132.                          FWIDTH:        sINTEGER;
  133.                          STYLE:         sBITSET;
  134.                          LITEMASK:      sBITSET;
  135.                          SKEWMASK:      sBITSET;
  136.                          WEIGHT:        sINTEGER;
  137.                          ROFF:          sINTEGER;
  138.                          LOFF:          sINTEGER;
  139.                          SCALE:         sINTEGER;
  140.                          CHUP:          sINTEGER;
  141.                          TEXTFG:        sINTEGER;
  142.                          SCRTCHP:       ADDRESS;
  143.                          SCRTP2:        sINTEGER;
  144.                          TEXTBG:        sINTEGER;
  145.                          COPYTRAN:      sINTEGER;
  146.                          SEEDABORT:     ADDRESS;
  147.                         END;
  148.  
  149. TYPE    PtrLINEAFonts = POINTER TO ARRAY [0..2] OF PtrFONTHDR; 
  150.  
  151.  
  152.  
  153. TYPE    METAHDR =       RECORD
  154.                          mfHeader:      sINTEGER;
  155.                          mfHlenght:     sINTEGER;
  156.                          mfVersion:     sINTEGER;
  157.                          mfNdcrcfl:     sINTEGER;
  158.                          mfExtents:     ARRAY [0..3] OF sINTEGER;
  159.                          mfPagesz:      ARRAY [0..1] OF sINTEGER;
  160.                          mfCoords:      ARRAY [0..3] OF sINTEGER;
  161.                          mfImgflag:     sINTEGER;
  162.                          mfResvd:       ARRAY [0..8] OF sINTEGER;
  163.                         END;
  164.  
  165.  
  166. TYPE    MFORM =         RECORD
  167.                          mfXhot:        sINTEGER;
  168.                          mfYhot:        sINTEGER;
  169.                          mfNplanes:     sINTEGER;
  170.                          mfFg:          sINTEGER;
  171.                          mfBg:          sINTEGER;
  172.                          mfMask:        ARRAY [0..15] OF sCARDINA